[ 1 ] [ 2 ] [ 3 ] [ 4 ] [ 5 ] [ 6 ] [ 7 ] [ 8 ] [ 9 ] [ 10 ] [ 11 ] [ 12 ] [ 13 ] [ 14 ] [ 15 ] [ back ]
Here only the call to HISTIN is added to the dummy code.
*$ CREATE USRINI.FOR *COPY USRINI * *=== usrini ===========================================================* * SUBROUTINE USRINI ( WHAT, SDUM ) INCLUDE '(DBLPRC)' INCLUDE '(DIMPAR)' INCLUDE '(IOUNIT)' * *